Jak zkopirovat obsah RichEdit_1 do RichEdit_2 ?

Otázka od: little_bobes@centrum.cz

13. 9. 2002 12:27

Zdravim,

potreboval bych zkopirovat formatovany text jednoho RichEditu do jineho.
Jak co nejjednoduseji postupovat?

Diky Bob

Odpovedá: Petr Vones

14. 9. 2002 12:09

From: <little_bobes@centrum.cz>
> potreboval bych zkopirovat formatovany text jednoho RichEditu do jineho.

procedure TForm1.Button1Click(Sender: TObject);
var
  TempStream: TMemoryStream;
begin
  TempStream := TMemoryStream.Create;
  try
    RichEdit1.Lines.SaveToStream(TempStream);
    TempStream.Seek(0, soFromBeginning);
    RichEdit2.Lines.LoadFromStream(TempStream);
  finally
    TempStream.Free;
  end;
end;

Petr Vones